home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd552 / rubbish source code / new screen scrolls.amos / new screen scrolls.amosSourceCode < prev    next >
AMOS Source Code  |  2001-01-14  |  2KB  |  68 lines
  1. Unpack 15 To 7 : Colour 1,$0 : Auto View Off 
  2. Screen Display 7,,20,,
  3. Unpack 14 To 6 : RemScreen To Back 6
  4. Unpack 13 To 5 : RemScreen To Back 5
  5. Screen Display 5,,30,,
  6. Screen Open 0,320,200,16,Lowres
  7. Screen Display 0,,105,,150
  8. Screen 0 : Extension_4_0054 200
  9. Flash Off : Curs Off : Hide On : Cls 0
  10. Screen To Front 7 : Screen To Front 0 : Screen 0 : Cls 0
  11. MAKE_IT_RAIN
  12. Auto View On : View 
  13. Do 
  14.    Wait Key 
  15.    PICCYON_DOWN[7,100,20,98,352,1]
  16.    Wait Key 
  17.    PICCYON_UP[7,100,98,20,352,1]
  18.    Screen Display 0,,55,320,200
  19.    Wait Key 
  20.    Screen Display 0,,105,,150
  21.    Screen Show 5 : Screen Hide 6
  22.    PICCYON_DOWN[7,100,20,98,352,1]
  23.    Wait Key 
  24.    PICCYON_UP[7,100,98,20,352,1]
  25.    Screen Show 6 : Screen Hide 5
  26. Loop 
  27. Procedure PICCYON_DOWN[SCR,H,S,F,W,ST]
  28.    View 
  29.    For Y=S To F Step ST
  30.       Screen Display SCR,,Y,W,H
  31.       Wait Vbl 
  32.    Next 
  33. Wait 30
  34. End Proc
  35. Procedure PICCYON_UP[SCR,H,S,F,W,ST]
  36.    View 
  37.    For Y=S To F Step -ST
  38.       Screen Display SCR,,Y,W,H
  39.       Wait Vbl 
  40.    Next 
  41. Wait 30
  42. End Proc
  43. Procedure MAKE_IT_RAIN
  44.    Set Rainbow 0,0,259,"","",""
  45.    Rainbow 0,0,255,259
  46.    For F=0 To 258
  47.       Read A
  48.       Rain(0,F)=A
  49.    Next F
  50.    Data $101,$202,$303,$404,$505,$606,$707,$808,$909,$A0A,$B0B,$C0C,$D0D,$E0E,$F0F,$E0E,$D0D
  51.    Data $C0C,$B0B,$A0A,$909,$808,$707,$606,$505,$404,$303,$202,$101,$0,$0,$0,$0,$0,$0,$0,$0
  52.    Data $100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00,$E00
  53.    Data $D00,$C00,$B00,$A00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$0,$0,$0,$0,$0
  54.    Data $0,$0,$0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$E,$D,$C,$B,$A,$9,$8,$7,$6
  55.    Data $5,$4,$3,$2,$1,$0,$0,$0,$0,$0,$0,$0,$0,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0
  56.    Data $D0,$E0,$F0,$E0,$D0,$C0,$B0,$A0,$90,$80,$70,$60,$50,$40,$30,$20,$10,$0,$0,$0,$0,$0,$0,$0,$0
  57.    Data $111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF,$EEE,$DDD,$CCC,$BBB
  58.    Data $AAA,$999,$888,$777,$666,$555,$444,$333,$222,$111,$0,$0,$0,$0,$0,$0,$0,$0
  59.    Data $110,$220,$330,$440,$550,$660,$770,$880,$990,$AA0,$BB0,$CC0,$DD0,$EE0,$FF0,$EE0,$DD0,$CC0,$BB0
  60.    Data $AA0,$990,$880,$770,$660,$550,$440,$330,$220,$110,$0,$0,$0,$0,$0,$0,$0,$0
  61.    Data $11,$22,$33,$44,$55,$66,$77,$88,$99,$AA,$BB,$CC,$DD,$EE,$FF,$EE,$DD,$CC,$BB,$AA,$99,$88,$77,$66,$55
  62.    Data $44,$33,$22,$11,$0,$0,$0,$0,$0,$0,$0,$0
  63. Channel 0 To Rainbow 0
  64.    A$="Loop: For R0=0 To 129;Let X= R0*2 Pause ; Next R0; Jump Loop"
  65.    Amal 0,A$
  66.    Amal On 
  67. End Proc
  68. Wait Key